COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "DPYSIZ"
C00003 00003	AIVECT(-511,500)DPYBIG(1)
C00005 00004	DPYSET(DPYBUF)
C00008 00005	FOR J←1 STEP 1 UNTIL 7 DO BEGIN
C00009 ENDMK
C⊗;
BEGIN "DPYSIZ"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	REQUIRE "DPYIII[SYS,BGB]" SOURCE_FILE;
	SAFE ITG ARRAY DPYBUF[0:2000];
PRELOAD_WITH 0, 8,12,14,16,24,32,48;SAFE ITG ARRAY WIDE[0:7];
PRELOAD_WITH 0,16,24,28,32,48,64,96;SAFE ITG ARRAY HIGH[0:7];
PRELOAD_WITH 0, 64, 43, 37, 32, 22, 17,11;
	SAFE ITG ARRAY CNT[0:7];
	ITG I,J,K;
	FOR I←1 TIL 45 DO OUTSTR(↓);
!	Q⊂ SETZ: '047000400017:JFCL:⊃;
	DEFINE QWAIT="Q⊂ '051000000000 ⊃";
WHILE TRUE DO  BEGIN
	DPYSET(DPYBUF);
	AIVECT(-511,-511);
	AVECT(+511,-511);
	AVECT(+511,+511);
	AVECT(-511,+511);
	AVECT(-511,-511);

AIVECT(-511,500);DPYBIG(1);
DPYSST("1....+....1....+....2....+....3....+....4....+....");
DPYSST("5....+....6....+....7....+....8....+....9....+....100");
DPYSST("..+....1....+....2....+.126");

AIVECT(-511,450);DPYBIG(2);
DPYSST("2....+....1....+....2....+....3....+....4....+....");
DPYSST("5....+....6....+....7....+....8....84");

AIVECT(-511,350);DPYBIG(3);
DPYSST("3....+....1....+....2....+....3....+....4....+....");
DPYSST("5....+....6....+....7..72");

AIVECT(-511,200);DPYBIG(4);
DPYSST("4....+....1....+....2....+....3....+....4....+....");
DPYSST("5....+....6...63");

AIVECT(-511,0);DPYBIG(5);
DPYSST("5....+....1....+....2....+....3....+....4..42");

AIVECT(-511,-250);DPYBIG(6);
DPYSST("6....+....1....+....2....+....3.31");

AIVECT(-511,-500);DPYBIG(7);
DPYSST("7....+....1....+....21");

DPYOUT(0);
QWAIT;
DPYSET(DPYBUF);
AIVECT(511,500);AVECT(-511,500);DPYBIG(1);
DPYSST("ABCDEFGHIJKLMNOPQRSTUWXYZ abcdefghijklmnopqrstuvwx");
DPYSST("yz 0123456789  +....7....+....8....+....9....+....100");
DPYSST("..+....1....+....2....+.126");

AIVECT(511,450);AVECT(-511,450);DPYBIG(2);
DPYSST("ABCDEFGHIJKLMNOPQRSTUWXYZ abcdefghijklmnopqrstuvwx");
DPYSST("yz 0123456789  +....7....+....8....84");

AIVECT(511,350+28);AVECT(-511,350+28);DPYBIG(3);
AIVECT(511,350);AVECT(-511,350);DPYBIG(3);
DPYSST("3 CDEFGHIJKLMNOPQRSTUWXYZ abcdefghijklmnopqrstuvwx");
DPYSST("5....+....6....+....7..72");

AIVECT(511,232);AVECT(-511,232);DPYBIG(4);
AIVECT(511,200);AVECT(-511,200);DPYBIG(4);
DPYSST("4 abc fghjkpqt +....2....+....3....+....4....+....");
DPYSST("5....+....6...63");

AIVECT(511, 48);AVECT(-511, 48);
AIVECT(511,  0);AVECT(-511,  0);DPYBIG(5);
DPYSST("5 abc fghjkpqt ABCDEFGH WXYZ .3....+....4..42");

AIVECT(511,64-250);AVECT(-511,64-250);DPYBIG(6);
AIVECT(511,-250);AVECT(-511,-250);DPYBIG(6);
DPYSST("6 abcdefghijklmnopqrstuvwxyz .3.31");

AIVECT(511,96-500);AVECT(-511,96-500);DPYBIG(7);
AIVECT(511,-500);AVECT(-511,-500);DPYBIG(7);
DPYSST("gjpqy t ABCDEF XYZ 012");

DPYOUT(0);
OPEN(1,"DSK",8,0,3,0,0,0);ENTER(1,"DPYSIZ.III",0);
ARRYOUT(1,DPYBUF[0],DPYBUF[1]);RELEASE(1);
QWAIT;
FOR J←1 STEP 1 UNTIL 7 DO BEGIN
	DPYSET(DPYBUF);
	AIVECT(-511,-511);
	AVECT(+511,-511);
	AVECT(+511,+511);
	AVECT(-511,+511);
	AVECT(-511,-511);

AIVECT(-511,511);DPYBIG(J);DPYSST(↓);
FOR I←1 STEP 1 UNTIL CNT[J] DO DPYSST("LINE "&CVS(I)&↓);
DPYOUT(0);QWAIT;
END;END;END "DPYSIZ";